%% Copyright (C) 2012 Estela Moura
%% 
%% This program is free software; you can redistribute it and/or modify
%% it under the terms of the GNU General Public License as published by
%% the Free Software Foundation; either version 3 of the License, or
%% (at your option) any later version.
%% 
%% This program is distributed in the hope that it will be useful,
%% but WITHOUT ANY WARRANTY; without even the implied warranty of
%% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
%% GNU General Public License for more details.
%% 
%% You should have received a copy of the GNU General Public License
%% along with Octave; see the file COPYING.  If not, see
%% <http://www.gnu.org/licenses/>.

%% matriz_distancia
%% Retorna: MatDistancia (NxN)
%% Recebe: Matriz_Cidades -> uma matriz Nx3. N é o número de cidades, e
%% cada uma das colunas são: índice, coordenada x e coordenada y, respectivamente.

%% Author: Estela Moura <estela@kubuntu-Inspiron>
%% Created: 2012-06-14

function [MatDistancia] = matriz_distancia (Matriz_Cidades)

 for(i=1:size(Matriz_Cidades, 1))
    for(j=1:size(Matriz_Cidades, 1))
      if(i==j)
	MatDistancia(i,j)=0;
      else
	MatDistancia(i,j)=sqrt((Matriz_Cidades(j,2)-Matriz_Cidades(i,2))^2 + (Matriz_Cidades(j,3)-Matriz_Cidades(i,3))^2);
      end
    end
  end
  
end
